DBFCOBOL

Importador de arquivos xBase

O padrão de arquivos XBase [.DBF] apesar de largamente difundido em aplicações de pequeno porte, oferece pouca confiabilidade. Isso torna freqüente a substituição destes aplicativos por sistemas profissionais, o que implica na conversão das informações.

Existem vários meios para converter estas bases para um arquivo texto que em seguida podem ser lidos por um programa COBOL especialmente elaborado mas o DBFCOBOL é o meio mais rápido e completo.

Formato: DBFCOBOL FileName

Onde FileName é o nome do arquivo a ser convertido [FileName.DBF]. Serão gerados dois arquivos: o primeiro [FileName.CPY], contendo a descrição do arquivo na linguagem COBOL (FD) e o segundo [FileName.TXT], contendo os dados no formato texto como os campos numéricos devidamente ajustados para a linguagem COBOL.

Exemplo:

Utilizando o dBase III+ ®, podemos observar a estrutura e o conteúdo do arquivo EXEMPLO.DBF que tem 4 registros.

stru.gif (5514 bytes)

list.gif (7633 bytes)

Executando o DBFCOBOL:

COBOLware C:\COBOLware>DBFCOBOL EXEMPLO
DBFCOBOL Conversor de arquivos xBASE para COBOL

COBOLware 6.2
Copyright (C) 1984-2020 COBOLware Services Ltda.

Verificando estrutura de EXEMPLO.DBF...
Trecho de FILE SECTION codificado em: EXEMPLO.CPY
Convertendo arquivo dBASE III+ (R) EXEMPLO.DBF...
Dados em formato texto em: EXEMPLO.TXT
4 Lidos de EXEMPLO.DBF 0 pré-deletados 4 gravados

COBOLware C:\COBOLware>

Resultados:

EXEMPLO.CPY

      ***********************************************************
      *    COBOLware 6.2 Lay-out dBASE III em texto             *
      ***********************************************************

       FD EXEMPLO
           RECORD CONTAINS 0120 CHARACTERS
           LABEL RECORD IS STANDARD
           VALUE OF FILE-ID IS "EXEMPLO.TXT".

       01 EXEMPLO-REG.
           05 EXEMPLO-CODIGO                 PIC 9(006)+.
           05 EXEMPLO-NOME                   PIC X(030).
           05 EXEMPLO-ENDERECO               PIC X(030).
           05 EXEMPLO-BAIRRO                 PIC X(020).
           05 EXEMPLO-CIDADE                 PIC X(020).
           05 EXEMPLO-ESTADO                 PIC X(002).
           05 EXEMPLO-CREDITO                PIC 9(007)V9(002)+.
           05 EXEMPLO-SITUACAO               PIC X(001).
              88 EXEMPLO-SITUACAO-THRUE                  VALUE "T" "Y".
              88 EXEMPLO-SITUACAO-FALSE                  VALUE "F" "N".

EXEMPLO.TXT

000023+TANCREDO DE ALMEIDA NEVES      R.DA SAUDADE,34 SALA 4         CENTRO               BRASILIA             DF000034934+Y
000934+PEDRO ALVARES CABRAL           PRAIA DO PORTO,90              CIDADE NOVA          PETROPOLIS           PE000045405-N
002343+CARLOS DRUMOND DE ANDRADE      R.DA CONSOLACAO,34/24          PINDAMONHAMGABA      RIO DE JANEIRO       GB000000300-N
199203+LUIS CARLOS PRESTES            R.DA FAZENDA, 455              SANTO AMARO          NOVO HORIZONTE       TO000034434-N